Visual Basic Toolbox

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / tpascal / bpvbx / form1.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1994-08-24 | 10.5 KB | 376 lines

VERSION 2.00 Begin Form Form1 BackColor = &H00C0C0C0& Caption = "Disk Tool 1.0" ClientHeight = 3756 ClientLeft = 1404 ClientTop = 2832 ClientWidth = 7260 Height = 4344 HelpContextID = 1 Left = 1272 LinkTopic = "Form1" ScaleHeight = 3756 ScaleWidth = 7260 Top = 2376 Width = 7524 Begin ThunderDiskTool DiskTool1 BytesPerCluster = 0 BytesPerSector = 0 ClustersAvailable= 0 Date = "" DiskCapacity = 0 DiskType = "" DiskVerify = 0 'False Drive = "" FreeSpace = 0 Left = 1680 Prop6 = "" SectorsPerCluster= 0 Size = 0 Status = 0 Time = "" Top = 240 TotalClusters = 0 Volume = "" End Begin TextBox Text18 Height = 285 Left = 4395 TabIndex = 33 Top = 240 Width = 1695 End Begin CommandButton Command2 Caption = "E&xit" Default = -1 'True Height = 375 Left = 840 TabIndex = 32 Top = 3135 Width = 1335 End Begin TextBox Text17 Height = 285 Left = 6300 TabIndex = 31 Top = 3240 Width = 735 End Begin TextBox Text16 Height = 285 Left = 6300 TabIndex = 30 Top = 2865 Width = 735 End Begin TextBox Text15 Height = 285 Left = 6300 TabIndex = 29 Top = 2490 Width = 735 End Begin TextBox Text14 Height = 285 Left = 4425 TabIndex = 27 Top = 3240 Width = 1695 End Begin TextBox Text13 Height = 285 Left = 4425 TabIndex = 1 Top = 2865 Width = 1695 End Begin TextBox Text12 Height = 285 Left = 4425 TabIndex = 6 Top = 2490 Width = 1695 End Begin TextBox Text11 Height = 285 Left = 4425 TabIndex = 26 Top = 2115 Width = 1695 End Begin TextBox Text10 Height = 285 Left = 4425 TabIndex = 18 Top = 1740 Width = 1695 End Begin TextBox Text9 Height = 285 Left = 4425 TabIndex = 17 Top = 1365 Width = 1695 End Begin TextBox Text8 Height = 285 Left = 4425 TabIndex = 16 Top = 990 Width = 1695 End Begin TextBox Text7 Height = 285 Left = 4425 TabIndex = 15 Top = 615 Width = 1695 End Begin TextBox Text6 Height = 285 Left = 915 TabIndex = 13 Top = 2115 Width = 1335 End Begin TextBox Text5 Height = 285 Left = 915 TabIndex = 11 Top = 1740 Width = 1335 End Begin TextBox Text4 Height = 285 Left = 915 TabIndex = 8 Top = 1365 Width = 1335 End Begin TextBox Text3 Height = 285 Left = 915 TabIndex = 7 Top = 990 Width = 1335 End Begin TextBox Text2 Height = 285 Left = 960 TabIndex = 3 Text = "A" Top = 240 Width = 495 End Begin CommandButton Command1 Caption = "&Examine" Height = 375 Left = 840 TabIndex = 2 Top = 2640 Width = 1335 End Begin TextBox Text1 Height = 285 Left = 915 TabIndex = 0 Top = 615 Width = 1335 End Begin Label Label15 BackColor = &H00C0C0C0& Caption = "Disk Type" ForeColor = &H00404080& Height = 255 Left = 2400 TabIndex = 34 Top = 240 Width = 1815 End Begin Label Label14 BackColor = &H00C0C0C0& Caption = "Used Space" ForeColor = &H00404080& Height = 255 Left = 2430 TabIndex = 28 Top = 3240 Width = 1815 End Begin Label Label13 BackColor = &H00C0C0C0& Caption = "Free Space" ForeColor = &H00404080& Height = 255 Left = 2430 TabIndex = 25 Top = 2865 Width = 1815 End Begin Label Label4 BackColor = &H00C0C0C0& Caption = "Disk Capacity" ForeColor = &H00404080& Height = 255 Left = 2430 TabIndex = 24 Top = 2490 Width = 1815 End Begin Label Label1 BackColor = &H00C0C0C0& Caption = "Bytes Per Cluster" ForeColor = &H00404080& Height = 255 Left = 2430 TabIndex = 23 Top = 2115 Width = 1815 End Begin Label Label12 BackColor = &H00C0C0C0& Caption = "Sectors Per Cluster" ForeColor = &H00404080& Height = 255 Left = 2430 TabIndex = 22 Top = 1740 Width = 1815 End Begin Label Label11 BackColor = &H00C0C0C0& Caption = "Bytes Per Sector" ForeColor = &H00404080& Height = 255 Left = 2430 TabIndex = 21 Top = 1365 Width = 1815 End Begin Label Label10 BackColor = &H00C0C0C0& Caption = "Total Clusters" ForeColor = &H00404080& Height = 255 Left = 2430 TabIndex = 20 Top = 990 Width = 1815 End Begin Label Label9 BackColor = &H00C0C0C0& Caption = "Clusters Available" ForeColor = &H00404080& Height = 255 Left = 2430 TabIndex = 19 Top = 615 Width = 1815 End Begin Label Label8 BackColor = &H00C0C0C0& Caption = "Path" ForeColor = &H00404080& Height = 255 Left = 120 TabIndex = 14 Top = 2115 Width = 615 End Begin Label Label7 BackColor = &H00C0C0C0& Caption = "Time" ForeColor = &H00404080& Height = 255 Left = 120 TabIndex = 12 Top = 1740 Width = 615 End Begin Label Label6 BackColor = &H00C0C0C0& Caption = "Date" ForeColor = &H00404080& Height = 255 Left = 120 TabIndex = 10 Top = 1365 Width = 615 End Begin Label Label5 BackColor = &H00C0C0C0& Caption = "Size" ForeColor = &H00404080& Height = 255 Left = 120 TabIndex = 9 Top = 990 Width = 615 End Begin Label Label3 BackColor = &H00C0C0C0& Caption = "Volume" ForeColor = &H00404080& Height = 255 Left = 120 TabIndex = 5 Top = 615 Width = 615 End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "Drive" ForeColor = &H00404080& Height = 255 Left = 120 TabIndex = 4 Top = 240 Width = 615 End Option Explicit Sub clearText () text3 = "" text4 = "" text5 = "" text6 = "" text7 = "" text8 = "" text9 = "" text10 = "" text11 = "" text12 = "" text13 = "" text14 = "" text15 = "" text16 = "" text17 = "" text18 = "" End Sub Sub Command1_Click () clearText DiskTool1.Drive = text2.Text DiskTool1.Action = 2 text18 = DiskTool1.DiskType text1.Text = DiskTool1.Volume text3 = DiskTool1.Size text4 = DiskTool1.Date text5 = DiskTool1.Time text6 = DiskTool1.[Path String] text7 = DiskTool1.ClustersAvailable text8 = DiskTool1.TotalClusters text9 = DiskTool1.BytesPerSector text10 = DiskTool1.SectorsPerCluster text11 = Val(DiskTool1.SectorsPerCluster) * Val(DiskTool1.BytesPerSector) text12 = Val(DiskTool1.TotalClusters) * Val(text11) text13 = Val(DiskTool1.ClustersAvailable) * Val(text11) text14 = Val(text12) - Val(text13) text15 = Str$(Int(Val(text12) / 1024)) & "K" text16 = Str$(Val(text13) / 1024) & "K" text17 = Str$(Val(text14) / 1024) & "K" End Sub Sub Command2_Click () Unload Me End End Sub